## Not run:
# data(BEclearData)
#
# ## Whole procedure that has to be done to make a prediction using the BEclear
# ## function
#
# # Calculate median difference values and p-values
# meds <- calcMedians(data=ex.data, samples=ex.samples)
# pvals <- calcPvalues(data=ex.data, samples=ex.samples)
#
# # Summarize p-values and median differences for batch affected genes
# sum <- calcSummary(medians=meds, pvalues=pvals)
#
# # Set entries defined by the summary to NA
# clearedMatrix <- clearBEgenes(data=ex.data, samples=ex.samples, summary=sum)
#
# # Predict the missing entries with standard parameters
# predicted <- BEclear(data=clearedMatrix)
# ## End(Not run)
Run the code above in your browser using DataLab